home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / dpp / arglist.c next >
C/C++ Source or Header  |  1997-04-16  |  3KB  |  148 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 17 "arglist.d"
  17. #include "dpp.h" 
  18.  
  19. #define    CLASS    ArgumentList_c
  20. #define    ivType    ArgumentList_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    ArgumentList_c;
  25.  
  26.  
  27. #line 21 "arglist.d"
  28. static void process_file(object, char *); 
  29.  
  30. cmeth objrtn ArgumentList_cm_gNew(object self)
  31. { 
  32.     return gShouldNotImplement(self, "gNew"); 
  33. } 
  34.  
  35. cmeth objrtn ArgumentList_cm_gNewArglist(object self, int argc, char **argv)
  36. { 
  37.     int i; 
  38.     object obj = oSuper(ArgumentList_c, gNew, self)(self); 
  39.     for (i=0 ; i < argc ; i++) 
  40.         if (argv[i][0] == '@') 
  41.         process_file(obj, 1+argv[i]); 
  42.     else 
  43.         gAddLast(obj, gNewWithStr(String, argv[i])); 
  44.     return obj; 
  45. } 
  46.  
  47. static void process_word(char *word, object list, int noexpand) 
  48. { 
  49.     int wild=0; 
  50.     char *w; 
  51.  
  52.     if (!noexpand) 
  53.         for (w=word ; *w ; w++) 
  54.         if (*w == '*' || *w == '?') { 
  55.         wild = 1; 
  56.         break; 
  57.     } 
  58.     if (!wild) { 
  59.         gAddLast(list, gNewWithStr(String, word)); 
  60.         return; 
  61.     } 
  62.  
  63.  
  64.  
  65.     gAddLast(list, gNewWithStr(String, word)); 
  66. } 
  67.  
  68.  
  69. #define space(x) ((x) <= ' ') 
  70.  
  71. static char *process_token(char *p, object list) 
  72. { 
  73.     char word[128], *w; 
  74.     int inquote, noexpand; 
  75.  
  76.     while (*p && space(*p)) 
  77.         p++; 
  78.     if (noexpand = inquote = *p == '"') 
  79.         p++; 
  80.     for (w=word ; *p && (!space(*p) || inquote) ; p++) 
  81.         if (inquote && *p == '"') 
  82.         inquote = 0; 
  83.     else 
  84.         *w++ = *p; 
  85.     *w = '\0'; 
  86.     if (*word == '@') 
  87.         process_file(list, word+1); 
  88.     else if (*word) 
  89.         process_word(word, list, noexpand); 
  90.     return p; 
  91. } 
  92.  
  93. static void process_file(object list, char *file) 
  94. { 
  95.     char buf[256], *p; 
  96.     object fobj; 
  97.  
  98.     fobj = gOpenFile(File, file, "r"); 
  99.     if (!fobj) { 
  100.         vPrintf(stdoutStream, "Can't open %s\n", file); 
  101.         exit(1); 
  102.     } 
  103.     while (gGets(fobj, buf, sizeof buf)) 
  104.         for (p=buf ; *(p=process_token(p, list)) ; ); 
  105.     gDispose(fobj); 
  106. } 
  107.  
  108. #line 109 "arglist.c"
  109.  
  110. objrtn    ArgumentList_initialize(void)
  111. {
  112.     static  CRITICALSECTION  cs;
  113.     static  int volatile once = 0;
  114.  
  115.     ENTERCRITICALSECTION(_CI_CS_);
  116.     if (!once) {
  117.         INITIALIZECRITICALSECTION(cs);
  118.         once = 1;
  119.     }
  120.     LEAVECRITICALSECTION(_CI_CS_);
  121.  
  122.     ENTERCRITICALSECTION(cs);
  123.  
  124.     if (ArgumentList_c) {
  125.         LEAVECRITICALSECTION(cs);
  126.         return ArgumentList_c;
  127.     }
  128.     INHIBIT_THREADER;
  129.     LinkObject_initialize();
  130.     if (ArgumentList_c)  {
  131.         ENABLE_THREADER;
  132.         LEAVECRITICALSECTION(cs);
  133.         return ArgumentList_c;
  134.     }
  135.     ArgumentList_c = gNewClass(Class, "ArgumentList", 0, 0, LinkObject, END);
  136.     cMethodFor(ArgumentList, gNew, ArgumentList_cm_gNew);
  137.     cMethodFor(ArgumentList, gNewArglist, ArgumentList_cm_gNewArglist);
  138.  
  139.     ENABLE_THREADER;
  140.  
  141.     LEAVECRITICALSECTION(cs);
  142.  
  143.     return ArgumentList_c;
  144. }
  145.  
  146.  
  147.  
  148.